home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Asm Source / Constants < prev    next >
Encoding:
Text File  |  1992-06-16  |  1.1 KB  |  48 lines  |  [TEXT/MSET]
  1. \ Assembler constants, values etc.
  2.  
  3.  
  4.     0    value    OPFMT        \ the format of the operation being compiled
  5.     1    value    PASS
  6.     0    value    KEEPHERE
  7.  
  8. 12 constant    CCR-TYPE    \ mode constants indicate special registers
  9. 14 constant    SR-TYPE
  10. 13 constant    USP-TYPE
  11.  
  12.   4 constant    EOL        \ indicates tokenType end-of-line
  13.  
  14. objHandle    TEMPH
  15.  
  16. \ Addressing modes - we'll try to shift over to these symbolic names
  17. \  by degrees:
  18.  
  19. type{    DnMode  AnMode  (An)Mode  (An)+Mode  -(An)Mode  AnRelMode
  20.     IndexMode  ShortAbsMode  LongAbsMode
  21.     PCrelMode  PCindexMode  ImmedMode
  22.     CCRmode  USPmode  SRmode  FPnMode  FPctlRegMode
  23.     DicMode  }
  24.  
  25. \ Operation formats:
  26.  
  27. type{  Bfmt  Wfmt  Lfmt  Sfmt  Dfmt  Xfmt  Pfmt  }
  28.  
  29.  
  30. : binary    2 -> base  ;
  31.  
  32. binary
  33.  
  34. 0100000011000000 value sr>-code    \ opcodes for various special move
  35. 0100011011000000 value >sr-code    \  instructions
  36. 0100111001100000 value usp-code
  37. 0100001011000000 value ccr>-code
  38. 0100010011000000 value >ccr-code
  39.  
  40. decimal
  41.  
  42. 0 value codePos        \ #bytes in instruction so far
  43.  
  44. 0 value errFlag        \ indicates that a serious error has occurred in
  45.             \  compilation
  46.  
  47. variable asmbuf 128 allot    \ sets up a 128 byte buffer
  48.